/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / 8_05 / Rounding / Rounders

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 20 f4 20 3e | 20 52 6f 75 6e 64 65 72 |.... . >| Rounder|
|00000010| 73 0d 00 14 1a eb 20 31 | 32 3a 20 f1 8a 33 36 29 |s..... 1|2: ..36)|
|00000020| 22 52 4f 55 4e 44 45 52 | 53 22 27 0d 00 1e 38 f1 |"ROUNDER|S"'...8.|
|00000030| 8a 31 38 29 22 41 20 70 | 72 6f 67 72 61 6d 20 74 |.18)"A p|rogram t|
|00000040| 6f 20 61 63 63 65 70 74 | 20 61 20 73 65 74 20 6f |o accept| a set o|
|00000050| 66 20 64 61 74 61 20 76 | 61 6c 75 65 73 2c 20 61 |f data v|alues, a|
|00000060| 6e 64 22 0d 00 20 39 f1 | 8a 31 38 29 22 72 6f 75 |nd".. 9.|.18)"rou|
|00000070| 6e 64 20 74 68 65 6d 20 | 28 75 70 20 6f 72 20 64 |nd them |(up or d|
|00000080| 6f 77 6e 29 20 74 6f 20 | 69 6e 74 65 67 72 61 6c |own) to |integral|
|00000090| 20 76 61 6c 75 65 73 2c | 20 73 6f 22 0d 00 22 37 | values,| so".."7|
|000000a0| f1 8a 31 38 29 22 74 68 | 61 74 20 74 68 65 69 72 |..18)"th|at their|
|000000b0| 20 73 75 6d 20 65 71 75 | 61 6c 73 20 74 68 65 20 | sum equ|als the |
|000000c0| 52 4f 55 4e 44 45 44 20 | 73 75 6d 20 6f 66 20 74 |ROUNDED |sum of t|
|000000d0| 68 65 22 0d 00 24 18 f1 | 8a 31 38 29 22 6f 72 69 |he"..$..|.18)"ori|
|000000e0| 67 69 6e 61 6c 20 64 61 | 74 61 22 0d 00 26 31 f1 |ginal da|ta"..&1.|
|000000f0| 27 8a 31 38 29 22 44 61 | 74 61 20 66 69 6c 65 64 |'.18)"Da|ta filed|
|00000100| 20 61 73 20 63 6f 6d 6d | 61 2d 73 65 70 61 72 61 | as comm|a-separa|
|00000110| 74 65 64 20 73 74 72 69 | 6e 67 73 22 0d 00 32 1e |ted stri|ngs"..2.|
|00000120| f4 20 45 52 49 43 20 57 | 2e 20 41 59 45 52 53 20 |. ERIC W|. AYERS |
|00000130| 3a 20 44 45 43 20 31 39 | 39 34 0d 00 64 29 e8 27 |: DEC 19|94..d).'|
|00000140| 27 27 22 4d 61 78 20 4e | 75 6d 62 65 72 20 6f 66 |''"Max N|umber of|
|00000150| 20 44 61 74 61 20 49 74 | 65 6d 73 22 2c 6e 64 61 | Data It|ems",nda|
|00000160| 74 61 25 0d 00 6e 20 de | 20 64 61 74 61 28 6e 64 |ta%..n .| data(nd|
|00000170| 61 74 61 25 29 2c 52 64 | 61 74 61 28 6e 64 61 74 |ata%),Rd|ata(ndat|
|00000180| 61 25 29 0d 00 78 24 f1 | 3a e8 22 4e 61 6d 65 20 |a%)..x$.|:."Name |
|00000190| 6f 66 20 64 61 74 61 20 | 66 69 6c 65 22 2c 64 61 |of data |file",da|
|000001a0| 74 61 66 69 6c 65 24 0d | 00 82 45 f2 72 65 61 64 |tafile$.|..E.read|
|000001b0| 63 73 76 28 64 61 74 61 | 66 69 6c 65 24 29 3a 20 |csv(data|file$): |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 f4 20 43 6f 6e |        |   . Con|
|000001d0| 76 65 72 74 20 43 53 56 | 20 41 53 43 49 49 20 26 |vert CSV| ASCII &|
|000001e0| 20 6c 6f 61 64 20 61 72 | 72 61 79 73 0d 00 8c 39 | load ar|rays...9|
|000001f0| 72 73 75 6d 3d a8 28 c6 | 8e 20 64 61 74 61 28 29 |rsum=.(.|. data()|
|00000200| 2b 2e 35 29 3a 20 20 20 | 20 20 20 20 20 20 20 20 |+.5):   |        |
|00000210| f4 20 52 6f 75 6e 64 65 | 64 20 73 75 6d 2d 6f 66 |. Rounde|d sum-of|
|00000220| 2d 64 61 74 61 0d 00 8e | 49 f4 20 49 74 65 72 61 |-data...|I. Itera|
|00000230| 74 65 20 72 6f 75 6e 64 | 69 6e 67 20 75 70 2f 64 |te round|ing up/d|
|00000240| 6f 77 6e 2c 20 73 74 61 | 72 74 69 6e 67 20 77 69 |own, sta|rting wi|
|00000250| 74 68 20 76 61 6c 75 65 | 73 20 6e 65 65 64 69 6e |th value|s needin|
|00000260| 67 20 6c 65 61 73 74 20 | 63 68 61 6e 67 65 0d 00 |g least |change..|
|00000270| 91 0f 20 20 f5 3a 65 72 | 72 6f 72 3d 30 0d 00 94 |..  .:er|ror=0...|
|00000280| 4a 20 20 66 72 61 63 3d | 30 3a 20 20 20 20 20 20 |J  frac=|0:      |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 f4 20 |        |      . |
|000002a0| 46 6c 61 67 20 73 65 74 | 20 69 66 20 61 6e 79 20 |Flag set| if any |
|000002b0| 64 61 74 61 20 73 74 69 | 6c 6c 20 6e 6f 6e 2d 69 |data sti|ll non-i|
|000002c0| 6e 74 65 67 65 72 73 0d | 00 96 38 20 20 20 20 e3 |ntegers.|..8    .|
|000002d0| 49 25 3d 30 b8 4a 25 3a | e7 20 28 52 64 61 74 61 |I%=0.J%:|. (Rdata|
|000002e0| 28 49 25 29 2d a8 28 52 | 64 61 74 61 28 49 25 29 |(I%)-.(R|data(I%)|
|000002f0| 29 29 20 3e 31 45 2d 34 | 3a 66 72 61 63 3d 31 0d |)) >1E-4|:frac=1.|
|00000300| 00 97 09 20 20 20 20 ed | 0d 00 98 32 20 20 e7 66 |...    .|...2  .f|
|00000310| 72 61 63 3d 30 20 80 20 | 94 28 65 72 72 6f 72 29 |rac=0 . |.(error)|
|00000320| 3c 31 45 2d 34 20 8c 20 | 8d 74 6a 40 20 3a 20 f4 |<1E-4 . |.tj@ : .|
|00000330| 20 41 6c 6c 20 64 6f 6e | 65 21 0d 00 99 3f 20 20 | All don|e!...?  |
|00000340| f4 20 65 72 72 6f 72 20 | 3d 20 64 69 66 66 65 72 |. error |= differ|
|00000350| 65 6e 63 65 20 62 65 74 | 77 65 65 6e 20 72 73 75 |ence bet|ween rsu|
|00000360| 6d 20 61 6e 64 20 73 75 | 6d 20 6f 66 20 72 6f 75 |m and su|m of rou|
|00000370| 6e 64 65 64 20 64 61 74 | 61 0d 00 9b 1d 20 20 65 |nded dat|a....  e|
|00000380| 72 72 6f 72 3d c6 8e 20 | 52 64 61 74 61 28 29 20 |rror=.. |Rdata() |
|00000390| 2d 20 72 73 75 6d 0d 00 | 9c 32 20 20 f4 20 52 6f |- rsum..|.2  . Ro|
|000003a0| 75 6e 64 20 55 70 2f 44 | 6f 77 6e 2c 20 64 65 70 |und Up/D|own, dep|
|000003b0| 65 6e 64 69 6e 67 20 6f | 6e 20 73 69 67 6e 20 6f |ending o|n sign o|
|000003c0| 66 20 65 72 72 6f 72 2c | 0d 00 9e 2e 20 20 f4 20 |f error,|....  . |
|000003d0| 74 68 6f 73 65 20 64 61 | 74 61 20 69 74 65 6d 73 |those da|ta items|
|000003e0| 20 6e 65 65 64 69 6e 67 | 20 6c 65 61 73 74 20 63 | needing| least c|
|000003f0| 68 61 6e 67 65 2e 0d 00 | a0 2b 20 20 e7 20 65 72 |hange...|.+  . er|
|00000400| 72 6f 72 3e 31 45 2d 34 | 3a f2 64 6f 77 6e 20 8b |ror>1E-4|:.down .|
|00000410| 20 e7 20 65 72 72 6f 72 | 3c 31 45 2d 34 3a f2 75 | . error|<1E-4:.u|
|00000420| 70 0d 00 aa 20 20 20 fd | 20 28 66 72 61 63 3d 30 |p...   .| (frac=0|
|00000430| 20 80 20 94 28 65 72 72 | 6f 72 29 3c 31 45 2d 34 | . .(err|or)<1E-4|
|00000440| 29 0d 00 b4 0c f2 64 69 | 73 70 6c 61 79 0d 03 84 |).....di|splay...|
|00000450| 05 e0 0d 03 b6 4b f4 20 | 3d 3d 3d 3d 3d 3d 3d 3d |.....K. |========|
|00000460| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 03 e8 |========|=====...|
|000004a0| 1d dd f2 72 65 61 64 63 | 73 76 28 46 24 29 3a 48 |...readc|sv(F$):H|
|000004b0| 25 3d 8e 46 24 3a 49 25 | 3d 30 0d 03 ed 31 f4 20 |%=.F$:I%|=0...1. |
|000004c0| 52 65 61 64 20 69 6e 20 | 43 53 56 20 41 53 43 49 |Read in |CSV ASCI|
|000004d0| 49 20 61 6e 64 20 6c 6f | 61 64 20 61 72 72 61 79 |I and lo|ad array|
|000004e0| 73 20 77 69 74 68 20 64 | 61 74 61 0d 03 f2 0d 20 |s with d|ata.... |
|000004f0| 20 f5 3a 41 24 3d 22 22 | 0d 03 fc 1b 20 20 20 20 | .:A$=""|....    |
|00000500| f5 3a 41 25 3d 9a 23 48 | 25 3a 41 24 2b 3d bd 28 |.:A%=.#H|%:A$+=.(|
|00000510| 41 25 29 0d 04 10 19 20 | 20 20 20 fd 20 41 25 3d |A%).... |   . A%=|
|00000520| 97 28 22 2c 22 29 84 20 | c5 23 48 25 0d 04 2e 2a |.(","). |.#H%...*|
|00000530| 20 20 64 61 74 61 28 49 | 25 29 3d bb 28 41 24 29 |  data(I|%)=.(A$)|
|00000540| 3a 52 64 61 74 61 28 49 | 25 29 3d bb 28 41 24 29 |:Rdata(I|%)=.(A$)|
|00000550| 3a 49 25 2b 3d 31 0d 04 | 42 14 20 20 fd 20 c5 23 |:I%+=1..|B.  . .#|
|00000560| 48 25 3a 4a 25 3d 49 25 | 2d 31 0d 04 4c 09 d9 23 |H%:J%=I%|-1..L..#|
|00000570| 30 3a e1 0d 04 7e 05 3a | 0d 07 d0 3e dd f2 75 70 |0:...~.:|...>..up|
|00000580| 3a 6d 61 78 3d 30 3a f4 | 20 52 6f 75 6e 64 20 55 |:max=0:.| Round U|
|00000590| 50 20 76 61 6c 75 65 73 | 20 77 69 74 68 20 62 69 |P values| with bi|
|000005a0| 67 67 65 73 74 20 66 72 | 61 63 74 69 6f 6e 61 6c |ggest fr|actional|
|000005b0| 20 70 61 72 74 73 0d 07 | da 2b 20 20 e3 20 49 25 | parts..|.+  . I%|
|000005c0| 3d 30 b8 4a 25 3a 64 69 | 66 66 3d 52 64 61 74 61 |=0.J%:di|ff=Rdata|
|000005d0| 28 49 25 29 2d a8 28 52 | 64 61 74 61 28 49 25 29 |(I%)-.(R|data(I%)|
|000005e0| 29 0d 07 e4 25 20 20 e7 | 20 28 64 69 66 66 3c 3e |)...%  .| (diff<>|
|000005f0| 30 20 80 20 64 69 66 66 | 3e 6d 61 78 29 3a 6d 61 |0 . diff|>max):ma|
|00000600| 78 3d 64 69 66 66 0d 07 | ee 32 20 20 ed 3a f4 20 |x=diff..|.2  .:. |
|00000610| 73 65 74 20 6d 61 78 20 | 74 6f 20 6c 61 72 67 65 |set max |to large|
|00000620| 73 74 20 66 72 61 63 74 | 69 6f 6e 61 6c 20 70 61 |st fract|ional pa|
|00000630| 72 74 20 66 6f 75 6e 64 | 0d 07 f8 0e 20 20 e3 49 |rt found|....  .I|
|00000640| 25 3d 30 b8 4a 25 0d 08 | 02 3c 20 20 e7 20 52 64 |%=0.J%..|.<  . Rd|
|00000650| 61 74 61 28 49 25 29 2d | a8 28 52 64 61 74 61 28 |ata(I%)-|.(Rdata(|
|00000660| 49 25 29 29 20 3d 6d 61 | 78 3a 52 64 61 74 61 28 |I%)) =ma|x:Rdata(|
|00000670| 49 25 29 3d a8 28 52 64 | 61 74 61 28 49 25 29 29 |I%)=.(Rd|ata(I%))|
|00000680| 2b 31 0d 08 16 27 20 20 | ed 3a f4 20 52 6f 75 6e |+1...'  |.:. Roun|
|00000690| 64 20 75 70 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 |d up cor|respondi|
|000006a0| 6e 67 20 76 61 6c 75 65 | 73 0d 08 20 05 e1 0d 08 |ng value|s.. ....|
|000006b0| 34 05 3a 0d 0b b8 43 dd | f2 64 6f 77 6e 3a 6d 69 |4.:...C.|.down:mi|
|000006c0| 6e 3d 31 3a f4 20 52 6f | 75 6e 64 20 44 4f 57 4e |n=1:. Ro|und DOWN|
|000006d0| 20 76 61 6c 75 65 73 20 | 77 69 74 68 20 73 6d 61 | values |with sma|
|000006e0| 6c 6c 65 73 74 20 66 72 | 61 63 74 69 6f 6e 61 6c |llest fr|actional|
|000006f0| 20 70 61 72 74 73 0d 0b | c2 2b 20 20 e3 20 49 25 | parts..|.+  . I%|
|00000700| 3d 30 b8 4a 25 3a 64 69 | 66 66 3d 52 64 61 74 61 |=0.J%:di|ff=Rdata|
|00000710| 28 49 25 29 2d a8 28 52 | 64 61 74 61 28 49 25 29 |(I%)-.(R|data(I%)|
|00000720| 29 0d 0b cc 25 20 20 e7 | 20 28 64 69 66 66 3c 3e |)...%  .| (diff<>|
|00000730| 30 20 80 20 64 69 66 66 | 3c 6d 69 6e 29 3a 6d 69 |0 . diff|<min):mi|
|00000740| 6e 3d 64 69 66 66 0d 0b | d6 33 20 20 ed 3a f4 20 |n=diff..|.3  .:. |
|00000750| 73 65 74 20 6d 69 6e 20 | 74 6f 20 73 6d 61 6c 6c |set min |to small|
|00000760| 65 73 74 20 66 72 61 63 | 74 69 6f 6e 61 6c 20 70 |est frac|tional p|
|00000770| 61 72 74 20 66 6f 75 6e | 64 0d 0b e0 0e 20 20 e3 |art foun|d....  .|
|00000780| 49 25 3d 30 b8 4a 25 0d | 0b ea 38 e7 20 52 64 61 |I%=0.J%.|..8. Rda|
|00000790| 74 61 28 49 25 29 2d a8 | 28 52 64 61 74 61 28 49 |ta(I%)-.|(Rdata(I|
|000007a0| 25 29 29 20 3d 6d 69 6e | 3a 52 64 61 74 61 28 49 |%)) =min|:Rdata(I|
|000007b0| 25 29 3d a8 28 52 64 61 | 74 61 28 49 25 29 29 0d |%)=.(Rda|ta(I%)).|
|000007c0| 0b fe 29 20 20 ed 3a f4 | 20 52 6f 75 6e 64 20 64 |..)  .:.| Round d|
|000007d0| 6f 77 6e 20 63 6f 72 72 | 65 73 70 6f 6e 64 69 6e |own corr|espondin|
|000007e0| 67 20 76 61 6c 75 65 73 | 0d 0c 08 05 e1 0d 0c 1c |g values|........|
|000007f0| 05 3a 0d 0f a0 0d dd f2 | 64 69 73 70 6c 61 79 0d |.:......|display.|
|00000800| 0f a5 33 f1 27 27 8a 31 | 30 29 22 49 6e 70 75 74 |..3.''.1|0)"Input|
|00000810| 20 44 61 74 61 20 20 52 | 6f 75 6e 64 65 64 20 44 | Data  R|ounded D|
|00000820| 61 74 61 20 20 52 6f 75 | 6e 64 65 64 20 53 55 4d |ata  Rou|nded SUM|
|00000830| 22 27 0d 0f aa 26 20 20 | e3 49 25 3d 30 b8 4a 25 |"'...&  |.I%=0.J%|
|00000840| 3a f1 8a 31 30 29 64 61 | 74 61 28 49 25 29 2c 52 |:..10)da|ta(I%),R|
|00000850| 64 61 74 61 28 49 25 29 | 0d 0f af 07 20 20 ed 0d |data(I%)|....  ..|
|00000860| 0f b4 2b f1 27 22 54 6f | 74 61 6c 73 22 8a 31 30 |..+.'"To|tals".10|
|00000870| 29 c6 8e 20 64 61 74 61 | 28 29 2c c6 8e 20 52 64 |).. data|(),.. Rd|
|00000880| 61 74 61 28 29 2c 72 73 | 75 6d 0d 0f be 05 e1 0d |ata(),rs|um......|
|00000890| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+